home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / ace_gpl_release / src / lib / asm / scroll.s < prev    next >
Encoding:
Text File  |  1998-10-04  |  2.5 KB  |  116 lines
  1. ;
  2. ; scroll.s -- an ACE linked library module: scroll bits in a rastport.
  3. ; Copyright (C) 1998 David Benn
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ;
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ;
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ;
  19. ; Author: David J Benn
  20. ;   Date: 19th March 1994
  21. ;
  22. ; registers d0-d6 and a0-a3 are modified by some of the following. BEWARE!
  23. ;
  24. ; a4,a5 are used by link/unlk.
  25. ; a6 is library base holder.
  26. ; a7 is stack pointer. 
  27. ; d7 is used for array index calculations.
  28. ;
  29.  
  30. ; * CONSTANTS *
  31. Width        equ 8
  32. Height        equ 10
  33. Font        equ 52
  34. tf_YSize    equ 20
  35.  
  36.     xdef    _scroll_screen
  37.  
  38.        ; external references
  39.     xref    _pos    
  40.     xref    _csrlin    
  41.     xref    _locate
  42.     xref    _windowfunc
  43.     xref    _font_height
  44.     xref    _max_line
  45.     xref    _wdth
  46.     xref    _hgt
  47.     xref    _Wdw
  48.     xref    _RPort
  49.     xref    _GfxBase
  50.     xref    _LVOScrollRaster
  51.  
  52.     SECTION scroll_code,CODE
  53.  
  54. ;
  55. ; Scroll up one text line? Font and window height are taken into account.
  56. ;
  57. _scroll_screen:
  58.     move.l    a6,-(sp)    ; store a6 (this routine called from C)
  59.  
  60.     ; get Wdw height & max. lines
  61.     move.w    #3,d0
  62.     jsr    _windowfunc    ; d0 = window height
  63.  
  64.     ; find font height
  65.     movea.l    _RPort,a0
  66.     movea.l    Font(a0),a0
  67.     move.w    tf_YSize(a0),d1
  68.     move.w    d1,_font_height
  69.  
  70.     ; determine maximum line
  71.     divu    d1,d0
  72.     subi.w    #2,d0
  73.     move.w    d0,_max_line
  74.  
  75. _get_curr_line:
  76.     ; get current line
  77.     jsr    _csrlin        ; d0=current LINE 
  78.     
  79.     ; current line > max-line?
  80.     move.w    _max_line,d1    ; d1=max-line
  81.     cmp.w    d1,d0
  82.     bgt.s    _do_scroll    ; YES
  83.  
  84.     move.l    (sp)+,a6
  85.  
  86.     rts            ; NO
  87.  
  88. _do_scroll:
  89.     move.w    _font_height,-(sp)
  90.     movea.l    _Wdw,a0
  91.     move.w    Width(a0),_wdth
  92.     move.w    Height(a0),_hgt
  93.     
  94.     ; scroll screen up one character
  95.     movea.l    _GfxBase,a6
  96.     movea.l    _RPort,a1
  97.     moveq    #0,d0        ; delta_x = 0
  98.     move.w    (sp)+,d1    ; delta_y = font height
  99.     moveq    #0,d2
  100.     moveq    #0,d3        ; 0,0 = xmin,ymin
  101.     move.w    _wdth,d4    
  102.     move.w    _hgt,d5        ; xmax,ymax
  103.     jsr    _LVOScrollRaster(a6)
  104.                 
  105.     ; move print position to bottom line.
  106.     jsr    _pos
  107.     move.w    d0,d1        ; d1=COLUMN
  108.     move.w    _max_line,d0    ; d0=LINE
  109.     jsr    _locate
  110.  
  111.     move.l    (sp)+,a6
  112.         
  113.     rts
  114.  
  115.     END
  116.